This replication archive contains R code to reproduce the numerical example in "Experimental Designs for Identifying Causal Mechanisms" by Kosuke Imai, Dustin Tingley and Teppei Yamamoto (Journal of the Royal Statistical Society, Series A, forthcoming). The archive consists of the following three files.

readme.txt (this file)
fig2.R
brader_trim_nomiss.dta

The .R file contains all the R commands sufficient to produce Figure 2 in the paper. The code takes brader_trim_nomiss.dta (Stata data file) as input, generates a principal stratification consistent with the observed information, assigns mediator and encouragement values in the hypothetical experiments, and computes the nonparametric bounds.

Please forward any question regarding this replication files to Teppei Yamamoto (teppei@mit.edu) at MIT.

Kosuke Imai
Dustin Tingley
Teppei Yamamoto

